{Samp( )stringwidth pop 2 div _RMoveX}forall

[288 216 144 96 72 60 48 36 28 24 20 18 16 14 12 11 10 9 8 7 6 5 4]

{showpage _DoPageHeader}if pop end}B

_curl _SetLeading currentpoint _botm le

_curl ^E 1.5 mul mul add neg _RMoveY

/_NextLine{WrapDict begin _leftm _MoveX _leading 1 ^E sub mul

/Samp{/|______TestFont findfont exch _SaveScaleFont setfont ^F _WrapShow}def

/_SaveScaleFont{dup /_curl xdf scalefont}B

300 _SetLeading _DoPageHeader